home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmftrecv.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  472b  |  27 lines
  1.  
  2. /* $Id: Pvmftrecv.c,v 1.1 1997/06/27 16:34:42 pvmsrc Exp $ */
  3.  
  4. #include <sys/types.h>
  5.  
  6. #ifdef WIN32
  7. #include "..\..\src\pvmwin.h"
  8. #include <time.h>
  9. #else 
  10. #include <sys/time.h>
  11. #endif
  12. #include "pvm3.h"
  13.  
  14. #include "pvm_consts.h"
  15.  
  16. void  __fortran
  17. PVMFTRECV (tid, msgtag, sec, usec, info)
  18. int *tid, *msgtag, *sec, *usec, *info;
  19. {
  20.    struct timeval t;
  21.  
  22.    t.tv_sec = *sec;
  23.    t.tv_usec = *usec;
  24.    *info = pvm_trecv(*tid, *msgtag, (*sec == -1 ? (struct timeval *)0 : &t));
  25. }
  26.  
  27.